Notes/Domino 6 and 7 Forum : RE: Printing to LPT1 directly

Notes/Domino 6 and 7 Forum

RE: Printing to LPT1 directly

RE: Printing to LPT1 directly
Posted by ~Karl Prefanateretsi on 5.Dec.03 at 09:37 PM using a Web browser
Category: Domino Designer

Release: 6.5

Platform: Windows 2000

Thanks for the feedback!

The way you propose is too easy. :) I actually found another way using the Windows print system. I like your way better though so I'll probably end up tweaking it to work through Notes natively.

Here's the code that I found also works:

Dim strMessage As String
strMessage = "test message"

' Create FileSystem Object and Windows Scripting Host Network Object
Dim objFS As Variant
Dim objPrinter As Variant
Set objFS = CreateObject ( "Scripting.FileSystemObject" )
Set objPrinter = objFS.CreateTextFile ( "LPT1:", True )
objPrinter.Write ( strMessage )
objPrinter.Close